Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00074_DOSITDOWNBLUE.ls

Text File | 1998-01-01 | 532 b | 22 lines

on DOSITDOWNBLUE
  global GRIDV, GRIDH, GRIDY, TURN, SOND, TBBB, TB
  set TB to 0
  set TBBB to 0
  if TURN = 2 then
    repeat while TB = 0
      set TBBB to random(140)
      if getAt(GRIDV, TBBB) = 2 then
        if SOND = 0 then
          puppetSound("SIT")
        end if
        set the locH of sprite 10 to getAt(GRIDH, TBBB)
        set the locV of sprite 10 to getAt(GRIDY, TBBB)
        set the castNum of sprite 10 to 71
        updateStage()
        set TB to 1
      end if
    end repeat
  end if
  REMOVESPRITE()
end